home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / db4less3.arc / JOB.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1990-06-16  |  10KB  |  61 lines
  1. GAIN NOUPDATE
  2. USE EMP.DBF AGAIN NOUPDATE IN 2 ORDER EMPID
  3. USE JOB.DBF AGAIN NOUPDATE IN 3 ORDER JOBID
  4. SET EXACT ON
  5. SET FILTER TO FOUND(2) .AND. FOUND(3)
  6. SET RELATION TO TRIM(EMPID) INTO B,JOBID INTO C
  7. SET SKIP TO B,C
  8. QBE___SAFE = SET("SAFETY")
  9. QBE___CATA = SET("CATALOG")
  10. SET SAFETY OFF
  11. SET CATALOG OFF
  12. GO TOP
  13. ,B->EMPID,C->JOBID
  14. COPY TO QBE___11
  15. USE QBE___11 NOSAVE NOUPDATE
  16. IF RECCOUNT() > 1
  17. SORT TO QBE___12 ON EMPID/A,JOBID/A
  18. USE QBE___12 NOSAV
  19. CUSTCODE
  20. STARTDATE
  21. JOBID
  22. JOBDESC
  23. TIME.DBF
  24. EMP.DBF
  25. JOB.DBF
  26. CUSTCODE
  27. BOISE     
  28. WHISPER   
  29. CUSTCODE
  30. STARTDATE
  31. STARTDATE
  32. JOBID
  33. BOI01
  34. WHI01
  35. JOBID
  36. JOBDESC
  37. Accounting Program                                
  38. Tenant Tracking                                   
  39. JOBDESC
  40. BOISE     
  41. BRIGHTON  
  42. BRIGHTON  
  43. GSA       
  44. LIMBER    
  45. WESTWINDS 
  46. WHISPER   
  47. BOI01
  48. BRI01
  49. BRI02
  50. GSA01
  51. LIT01
  52. WES01
  53. WHI01
  54. Accounting Program                                 
  55. Catalog For Photographs                            
  56. Class Scheduling Program                           
  57. Job Costing System                                =
  58. Network for Pulp Mill                             
  59. Sales Force Mail File                             
  60. Tenant Tracking                                   
  61.